ANnnnno 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
a | LLL) 
ee ee ee Le) 


L 
LLLLLLLLLLLELLLL 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


=a FRCS KS TS PS PSPSPS CS TS KTS TS KS SHS HSS HSS HSS HS SHS HS HSS SHS SCS FCS FSCS HS SSE FS SCS FSCS SCE HS FSCS HSCS SCS SCS FESR FSCS FS SS FE FSFE FS 


tas du Usb 
Mu thd Lk asus 
renee) A usu 
eon Ud as Led bad 
aoe th As 
laud lu 


wud 
dd ed 
A ds a a 


Wn MIWmwn 
"ww MWwnnw 
ww wn wn 
wn ww Ww 
ww nw nw 
Www ww nn 
nw Wn Www 
mm mn mn 
Munn wn 
Minn nmwn 
oooooo°0c[e0o 
Sooo0oeoocco0o0oo 
ss oo 
o oo 
t=4 Se 
S38 oo 
oo oo 
8Sssssssss 
oooo0o0o°00o 
aa 
a 
a ad 
a 
a ad 
a ad 
a ) 
ao 
ed ad od od hd I dd od od I I 
ed ed ed ed ed ed ed ad ed dd 
ww ww 
I) wv 
YUw ww 
Ww sr) 
ww ww 
Vu ww 
ww ww 
Www Vu 
WVYVYYVYYUYVUUYUY 
WV YVVyUVuuUuuUuuUuvvY 
wn Munn vn MWwmnm 
nn MMwMnm ww MwWnnwn 
wn Wn wn nw Www nn 
ww ww mw ww nw mn 
nuw nw ww wn nw wn 
wn vn ww mnwm ww wn 
wn wn mn ww wn wn 
mm mm ww nw mw nw 
MwMnnm Www MMMM wwn 
Mwnwnnm ww MMInw wm 
<q<aq<aaa <q<aqaaa 
ss 4 =! — 
< <<a ee os 
<<a << Bt sg os ee ne ae eee ee ee ee 
_—, —e 
< « eal, > Preaek ee oe 
S2n5 Sane 33 
oq 292 ad 
$s ab at 
es 33 
2 oe ® ad ad 
2 @ @ ra “4 ror 
ed ad od od I 
@ Saaoooooooe a ee ee ee ee ee ee ee ee ee 


— **F ILE**1D**BASCLOSE 


7 
BASSCLOSE ibs $ep-1984 7:5 AX-11 Bliss-32 v4.0 Page 
14-Sep =1382 90: He 23 EBASRTL” SRC IBASCLOSE. “3 31 fs 
MODULE BASSCLOSE ( ' Clos se 3 tt Fits 
' File: BAS bse. B32 EDIT:MDL1008 


IDENT = *1-008' 
de 


PARP SSESELILIL IIIS ETT T TTT TTT Trcic Tir i ri iiriiiiititititit 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED, 


'* THIS $ fe ‘heche i. FURNISHED UNDER A LICENSE AND 71 cPh USED AND gonree 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH CENSE AND WITH THE 
:® INCLUSION OF THE ABOVE oy peneee NOTICE. THIS sort WARE OR ANY OTHER 
:* COPIES THEREOF 9 NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
+ 
o 
® 
® 
® 
t 
® 
® 
* 
ie TRANSFERRED. . 
oe 
® 
tt 
a7 
® 
* 
* 
a 
® 
& 


Sss3sssss 


SSSSsss 


> ts 4 a bs sa 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC ce 
:. CoRPOhat the NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ooo 
ooo 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ESE LELISITIIT IST ITE TIPE ceric iT iii Titi Tir iii titi) 
' 


WN "SO OCONAOVUEWN “CO OOBVNOUFS ENO 


SOPMNAME WN $9 OBNOAU EWN SO OONOU EWR OOODNOU SW 
oooooooooo Ssss 


WWW WWIII nonononononononony 2 a ee 


4 ‘oe 

; FACILITY: BASIC=-PLUS-2 1/0 SUPPORT 

3 ' ABSTRACT: 

34 ! 

35 ‘ This module contains the routine which closes a file for 

3 } a BASIC program. 

sit 4 ENVIRONMENT: VAX=11 User Mode 

rs Boat AUTHOR: John Sauter, CREATION DATE: 16-FEB-1979 
ry Beg ! MODIFIED BY: 
4 004 ‘ 
44 044 ! 1-001 = Original. JBS 16-FEB-1979 
45 045 i 1-002 = Use BASIOERR.REQ te geet ing the vs, error codes. JBS 20-FEB-1979 
46 004 ! 1-003 = Set up ISBSA_USER_FP. JBS 25-JUL-197 
47 004 ! 1-004 - Purge the 1/0" buffer rexplicitly.. since OTSSSCLOSE_FILE doesn't 
48 Boe8 : my more. JBS 27- 
49 049 ' 1-005 - it yo site has a more 5m. gne s.sgreen connected to it, disconnect 
50 0050 ‘ er streams. JBS 1979 
51 0051 ! 1-006 - cttt Sassrietore CLOSE ° Bm Prielded variables from 
2g 0038 ! the symbol table, in case the compiler doesn't. PLL 2-JUN-81 
5 005 ! 1-007 - Geneve the call to BASSFIELD. CLOSE, as it is unshared od BASSCLOSE 
54 Bbee ‘ is PL 16-Jun-81 
55 055 ' 1-008 - HT MOASSTIELD CLOSE now, as all BAS$ entry points are now shared. 
$ 3328 MDL 26-Mar-1982 


KL Ss Ss ss 


‘passccose Bete 99: a2 AX-11 at =32 v4.0-76 


14-Sep- 
35 8088. 1 :<BLF/PAGE> 


BASRTL.SRC JBASCLOSE.85 31 
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pAStr Lose 1E-Sep-1964 00:07:54 yanctt BLisg=52 v4. 0-742 Page 


61 ‘ 
66 ' SWITCHES: 
6 : 
64 
65 SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
6 ; 
o8 LINKAGES: 
> ! 
4 REQUIRE *RTLIN:OTSLNK’; ! Define all the Linkages 
7 ' 
a TABLE OF CONTENTS: 
f ! 
7 FORWARD ROUTINE 
44 BASSCLOSE : NOVALUE; ! Close a file from BASIC 
0 ! 
Bi INCLUDE FILES: 
HE 


REQUIRE "RTLIN:RTILPSECT’; 
REQUIRE ‘RTLML:OTSLUB’; 
REQUIRE ‘RTLML:OTSISB'; 
REQUIRE ‘RTLIN:BASIOERR'; 
LIBRARY ‘RTLSTARLE'; 


Macros for defining psects 
Define symbols in the LUB 
Define symbois in the ISB 


Define the 1/0 error codes. 


Define system symbols 


ee a aa aaa ke ae a a a tt td 2d 8 = = 8 


Be Be Se Be Oe Se Se Be Se Ge Be Ge Se Se Se Se Se Se Se Se Be Se Oe Oe Se Se Se SH Ge SH Se Be Se Se Ge Ge Se Be ee Se Se Se Ge Se Se ee Se Se Se He Ge ee Se Se Ge Ge ee 


8S 

8 

8 

88 

89 

90 

91 

9 

y 

94 : 

95 ! MACROS: 

96 : 

97 ¢ NONE 

96 : 

Oe ' EQUATED SYMBOLS: 

100 : 

101 ‘ NONE 

4 : 

+ PSECTS: 

198 DECLARE _PSECTS (BAS); ! Declare psects for BASS facility 
107 ! OWN STORAGE: 

108 : 

109 ‘ NONE 

110 : 

1} EXTERNAL REFERENCES: 

18 

114 aie ROUTINE : 

115 $CB_PUSH : Ay (B or OAL UE ! Load register CCB 

116 BAS$$C(B"POP : JSB_CB_RET NOVALUE, ' Done with register CCB 
11 BASSSSTOP_ 10: +NOUA Pore ! signals fatal 1/0 error 


. 


ASSCLOSE 16-Sep-19 254 AX-11 Bliss-32 V4.0-7 i 4 
BARRE 16-00-1984 99: e:2> — EBASare SAeiwascy og¢ 03351 oe 12) 
3 118 2444 1 BASSSPUR_10_CLO : cau ccé, ' Purge 1/0 buffer 

ae) 8 1 BASSFIELS CCOSE : vACUE, ' delete FIELDed vertebles on this channel 
's 120 0999 1 BASSSCLOSE_ALL ‘ WOVALUE i Close all files with a certain IFI 

is 21 1000 1 OT SsSCLOSE” “FILE; i RMS Close a file 

ig ¢ 198) 1 

a | 1 § 1 te 

3 : 1 Hy s'ty : The following are the error codes used in this module. 

Het an ae 

; (1 1 1 EXTERNAL LITERAL 

3 193 1Som : BASSK_PROLOSSOR : UNSIGNED (8); ! Program lost, sorry 

i 1 1009 1 


7 
pASteLost 1$-sep-1964 00:07:54 yanett BLisg=52 v4. 0-742 | 


GLOBAL g the BASSCLOSE ( ' Close a file 
CHANNEL ' The BASIC channel number 
) : NOVALUE = 


ae 
FUNCTIONAL DESCRIPTION: 

Close an 1/0 channel from a BASIC-PLUS-2 program. 
FORMAL PARAMETERS: 


CHANNEL .rl.v The number of an open channel, which is to 
be closed. 


o_o st 


IMPLIC’ 1 INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


MEW 0 OONO NEAR -“OOONOUN Fw 


pam w lawl ola o lolol elo lolefololololeloleleleleloleolololala) 
het ry 


38 

39 Closes the specified channel. 
040 
041 - 
oa) 
04 BEGIN 
044 
045 BUILTIN 
B88 FP; 
04 
048 GLOBAL REGISTER 
Oep CCB = K_CCB_REG : REF BLOCK C, BYTE); 
051 LOCAL 
O2¢ FMP : REF BLOCK C, BYTE); 
bee FMP = .FP; 

'¢ 

036 ! for gompatebit ity with the PDP-11 implementations, an attempt to 
82 CLOSE channel 0 is a no-operation. 

05 


J (, CHANNEL NEQ 0) 
BEGIN 


'¢ 
: Set up register CCB to point to the LUB/ISB/RAB for this channel. 


UEWN—O O@ 


kk aa a a aa a a tk at et a tt a a a a = 2 = 2“ 
SSSSSS 
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4 7 
G08 VenSep-98e Wiis4c4? — EBasetusSRe SBAScLOse .050:1 et 


r 


SE 
EXTRN BASSSCLOSE_ALL, OTSSSCLOSE_FILE 
“EXTRN BASS$K_PROLOSSOR 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


is 3 1067 BASSSCB_PUSH (.CHANNEL, LUBSK_LUN MIN); 
3 : : : CCB CISBSA_USER_FP] = .FMP SPSL. Save. fP3; 
} 13¢ 1 ’ i Purge the 1/0 buffer. This will only happen on a non-forcible device 
3 bt : ; } on which the Last PRINT statement ended with a comma or semicolon. 
: 195 1978 BASSSPUR_I0_CLO (); 
E 199 1078 1+ 
E pb 1978 : get rid of any FIELDed variables on this channel, they are no longer valid. 
; 107 F .CCB CLUBSV_FIELD_US 
; of 107% Seabne a “pti 
i OG. pe temcel 
; 06 1088 RMS CLOSE the file, if it is open. 
; 20 1085 3 
; 08 198 4 If (.CCB CLUBSV_OPENED]) 
; 209 1087 3 THEN 
3 19 H+ 2 : BEGIN 
%’ ad 
3 \¢ 1090 2 If the file might have other streams connected, disconnect them. 
: 214 1092 4 
; 13 10398 2 If (.CCB CLUBSV_M_STR_C]) THEN BASSSCLOSE_ALL (.CCB CLUBSW_IFIJ); 
: 1 8 : IF ( NOT OTSSSCLOSE_FILE ()) THEN BASSS$STOP_IO (BASSK_IOERR_REC); 
3 219 1097 END; 
oe ee 
: $§ 1100 i we are done with register CCB. If this is the only use of this channel 
; Si at (as is Likely), then the LUB/ISB/RAB will be deallocated. 
3 225 1108 3 BAS$SCB_POP (); 
; $s6 Bf END; 
; $58 1106 1 END; ! end of BASSCLOSE 
-TITLE BASSCLOSE 
-IDENT \1-008\ 
-EXTRN BASSSCB_PUSH, BASS$$CB_POP 
-EXTRN BASSS$STOP_10, BASSSPUR_I0_CLO 
TEXTRN BASSFIELD“CLO 
8 
| 
| 
| 080¢ 00000 .ENTRY BASSCLOSE, Save R2.R3,R11 
33 5D od0 Boos MOVL FP, FMP 
2 04 AC BO 9000 MOVE CHANNEL, R2 
| 51 13 00009 BEQL 4$ 


PASSELOSE 


lé- 
4 000 
aia * 3 if 0 
FFG 68 C AS D 1 
000000006 Fe 1 
09 Al AB 4 . 
000000006 99 4 0 
4 FC a OO2E 1$: 
anes Co BES 
0 6 1 FB 000 
senna j EE HS a 
A E 04 
1 CE 0004C 
| 000000006 1 FB 000GF 
000000006 00 16 00056 3 
04 0005C 4 
; Routine Size: 93 bytes, Routine Base: _BASSCODE + 0000 
3 9 1107 +1 
; $3 1198 1 END 
3 1 1109 1 
; 2 1110 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes 
; _BASSCODE 93 NOVEC,NOWRT, RD, EXE, 
: Library Statistics 
og ee tet eo eer clear Symbols -------- 
: File Total Loaded Percent 


~-$255$DUA28 : CSYSLIBISTARLET.L32;1 
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Attributes 


9776 1 


COMMAND QUALIFIERS 


? 
Sep-1986 {1:54:07 


PAM 
“7 of 


AX-11 Bliss-32 v4. 20-286 
BASRTL.SRC JBASCLOSE .832;1 


CLRL Ss RO 
JSB BASSS 
VL f8 +5 Bocce 
CALLS Sant’ ID, flo 
¢ ; -95(CCB)> 
PUSHL 
CALLS shic taser fete CLOSE 
BLBC 
BBC ett ecd) 
MOVZWL Hac at} 
CALLS » BASSSCLOSE A 
CALLS Tessctose “Fite 
BLBS nO, : 
MNEGL (SP) 
CALLS pASSS5T0P_ 10 
wid 


! end of module BASSCLOSE 


LCL, REL, CON, PIC,ALIGN(2) 
Pages Processing 
Mapped Time 

581 00:01.2 


; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASCLOSE /0BJ=0BJ$:BASCLOSE MSRC$:BASCLOSE/UPDATE=(ENHS: BASCLOSE) 


c--—— 


9 
Compi 


Lexemes/CPU-Min: i 


{ Used: 
ation C 


93 


119 pages 
omplete 


+ 0 data bytes 


1e-sep-1984 00:07:54 VAX=11 Bliss-32 V4.0-742 


MENT CORPORATION 
SPRL A et 9 Na 


e 
A 


AH-BT13A-SE 
VAX/VMS V4.0 


0020 


